home *** CD-ROM | disk | FTP | other *** search
/ Introducing the New Way to Shop From Home / Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso / pc / MacStepbyStep.dxr / Internal_67_pizza2 decrease quantity.ls < prev    next >
Encoding:
Text File  |  2003-01-01  |  370 b   |  18 lines
  1. on mouseDown
  2.   global gQuantity2, gList2Prod, gList2Quant
  3.   if gList2Prod = string("Tate & Lyle Granulated Sugar") then
  4.     nothing()
  5.   else
  6.     if gList2Quant = 0 then
  7.       nothing()
  8.     else
  9.       if gQuantity2 > 0 then
  10.         gQuantity2 = gQuantity2 - 1
  11.         member(70).text = string(gQuantity2)
  12.       else
  13.         nothing()
  14.       end if
  15.     end if
  16.   end if
  17. end
  18.